extern int zhseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compz_len);
/*:ref: lsame_ 12 4 13 13 124 124 */
/*:ref: xerbla_ 14 3 13 4 124 */
/*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
/*:ref: dlapy2_ 7 2 7 7 */
/*:ref: zscal_ 14 4 4 9 9 4 */
/*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
/*:ref: zlahqr_ 14 13 12 12 4 4 4 9 4 9 4 4 9 4 4 */
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlabad_ 14 2 7 7 */
/*:ref: zlanhs_ 7 6 13 4 9 4 7 124 */
/*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
/*:ref: zcopy_ 14 5 4 9 4 9 4 */
/*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
/*:ref: izamax_ 4 3 4 9 4 */
/*:ref: zdscal_ 14 4 4 7 9 4 */
/*:ref: zlarfg_ 14 5 4 9 9 4 9 */
/*:ref: zlarfx_ 14 9 13 4 4 9 9 9 4 9 124 */
